<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="aFunction_charCode.asp" -->
<!-- #include file="ad_comSub.asp" -->

<%
Call tslt_useridentity12_error_end()
%>

<html>
<head>
<title></title>
<link href=../style/<%=session("tslt_stylefolder")%>/admin.css rel="stylesheet" type="text/css">
</head>
<body bgcolor=#aaaac4>
<br>
<CENTER>
<table><tr><td class="font2">֤</td></tr></table>
<br>
<table border=1 width=600 bgcolor=#dedfde cellpadding="15" cellspacing="15">
       <tr>
             <td align=center>
<%
                   dim rs,spl
                   dim ValidateCode2
                   sql="select * from option1"
                   set rs=conn.execute(sql)
                         ValidateCode2=rs("ValidateCode")
                         if ValidateCode2=true then
                                str1="checked"
                         else
                                str2="checked"
                         end if
                   rs.close
                   set rs=nothing
                   if ValidateCode2 then
                          Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_OpenVC(0))</SCRIPT>"
                   else
                          Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_OpenVC(1))</SCRIPT>"
                   end if
%>
                   <br>
                   <form method="post" action="" name="form1">
                         <input type="hidden" name="isok" value="ok">
                         <input type="radio" value="yes" name="ovc" <%=str1%>> ֤
                         <input type="radio" value="no" name="ovc" <%=str2%>> ֤ͣ
                         <br><br>
                         <p style='margin:8'><input type="submit" value="      " name="B1">
                   </form>
            </td>
       </tr>
</table>
<br>

<%
dim sure
sure = Request.form("isok")
if sure = "ok" then
       call OpenVC()
end if
%>

</CENTER>
</body>
</html>

<%
Call conn_Nothing()

sub OpenVC()
       dim ovc
       ovc=request.form("ovc")
       if ovc="yes" then
               conn.execute("update option1 set ValidateCode=true")
       else
               conn.execute("update option1 set ValidateCode=false")
       end if
       Call infoDivShow("  óɹ  ")
	   Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=OpenVC.asp'>"
end sub
%>


